.net - The Best of 1999/2000/netCD Special01.iso/pc/Software/We-Blocker/weblock.exe/WebSafe.exe/0/RCDATA/TCONTROLSFORM/TCONTROLSFORM.txt

Text File | 2000-06-22 | 20.4 KB | 680 lines

object Controlsform: TControlsform
  Left = 224
  Top = 150
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Controls'
  ClientHeight = 286
  ClientWidth = 529
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 244
    Width = 529
    Height = 42
    Align = alBottom
    BevelOuter = bvNone
    Color = clGray
    TabOrder = 0
    object ViewLogButton: TBitBtn
      Left = 54
      Top = 6
      Width = 103
      Height = 31
      Caption = '&View history'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = ViewLogButtonClick
      NumGlyphs = 2
    end
    object DoneButton: TBitBtn
      Left = 388
      Top = 5
      Width = 101
      Height = 31
      Caption = '&Done'
      Default = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = DoneButtonClick
      NumGlyphs = 2
    end
    object Helpbtn: TBitBtn
      Left = 222
      Top = 6
      Width = 103
      Height = 31
      Caption = '&Help'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = HelpbtnClick
    end
  end
  object PageControl1: TPageControl
    Left = 12
    Top = 6
    Width = 505
    Height = 235
    ActivePage = TabSheet2
    MultiLine = True
    TabHeight = 25
    TabOrder = 1
    TabWidth = 125
    object TabSheet1: TTabSheet
      Caption = 'General Settings'
      object LoginGroup: TGroupBox
        Left = 10
        Top = 6
        Width = 279
        Height = 169
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 0
        object Label2: TLabel
          Left = 18
          Top = 24
          Width = 111
          Height = 13
          Caption = 'Auto log-off User If Idle '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 200
          Top = 24
          Width = 37
          Height = 13
          Caption = 'Minutes'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object UnblockCheck: TCheckBox
          Left = 16
          Top = 48
          Width = 225
          Height = 25
          Alignment = taLeftJustify
          Caption = 'Temporarily Disable Site Blocking'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = UnblockCheckClick
        end
        object chkSound: TCheckBox
          Left = 23
          Top = 108
          Width = 218
          Height = 19
          Alignment = taLeftJustify
          Caption = 'Play Sounds'
          Checked = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          State = cbChecked
          TabOrder = 2
          OnClick = chkSoundClick
        end
        object lbIdle: TComboBox
          Left = 134
          Top = 20
          Width = 49
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 0
          Items.Strings = (
            '10'
            '30'
            '40'
            '60'
            '90')
        end
        object ChkUserMustLogin: TCheckBox
          Left = 23
          Top = 78
          Width = 218
          Height = 19
          Alignment = taLeftJustify
          BiDiMode = bdLeftToRight
          Caption = 'Disable Guest Account'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentBiDiMode = False
          ParentFont = False
          TabOrder = 3
          OnClick = chkSoundClick
        end
        object ChkUpdateNoAsk: TCheckBox
          Left = 23
          Top = 138
          Width = 218
          Height = 19
          Alignment = taLeftJustify
          Caption = 'Update Without Asking First'
          Checked = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          State = cbChecked
          TabOrder = 4
          OnClick = ChkUpdateNoAskClick
        end
      end
      object ProxyGroup: TGroupBox
        Left = 300
        Top = 6
        Width = 193
        Height = 121
        TabOrder = 1
        object Label8: TLabel
          Left = 25
          Top = 54
          Width = 42
          Height = 13
          Alignment = taRightJustify
          Caption = 'Proxy IP:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 19
          Top = 90
          Width = 51
          Height = 13
          Alignment = taRightJustify
          Caption = 'Proxy Port:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object chkProxy: TCheckBox
          Left = 24
          Top = 18
          Width = 145
          Height = 19
          Alignment = taLeftJustify
          Caption = 'Use Proxy'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = chkProxyClick
        end
        object edtIP: TEdit
          Left = 78
          Top = 46
          Width = 91
          Height = 21
          MaxLength = 15
          TabOrder = 1
          Text = 'edtIP'
        end
        object edtPort: TEdit
          Left = 78
          Top = 82
          Width = 31
          Height = 21
          TabOrder = 2
          Text = 'edtPort'
        end
      end
      object buttonUpdateDB: TButton
        Left = 330
        Top = 144
        Width = 137
        Height = 33
        Caption = 'Update Database Now'
        TabOrder = 2
        OnClick = buttonUpdateDBClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Users'
      object GroupBox1: TGroupBox
        Left = 22
        Top = 6
        Width = 465
        Height = 163
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        object AddUser: TBitBtn
          Left = 20
          Top = 24
          Width = 91
          Height = 31
          Caption = 'Add User'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = AddUserClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000010000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
            FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
            00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
            F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
            00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
            F033777777777337F73309999990FFF0033377777777FFF77333099999000000
            3333777777777777333333399033333333333337773333333333333903333333
            3333333773333333333333303333333333333337333333333333}
          NumGlyphs = 2
        end
        object EditUser: TBitBtn
          Left = 20
          Top = 68
          Width = 91
          Height = 31
          Caption = 'Edit User'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = EditUserClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000010000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
            000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
            00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
            F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
            0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
            FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
            FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
            0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
            00333377737FFFFF773333303300000003333337337777777333}
          NumGlyphs = 2
        end
        object DeleteUser: TBitBtn
          Left = 20
          Top = 112
          Width = 91
          Height = 31
          Caption = 'Del User'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = DeleteUserClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000010000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
            3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
            33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
            33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
            333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
            03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
            33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
            0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
            3333333337FFF7F3333333333000003333333333377777333333}
          NumGlyphs = 2
        end
        object UserLookupbox1: TDBLookupListBox
          Left = 168
          Top = 18
          Width = 177
          Height = 108
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          KeyField = 'USERNAME'
          ListField = 'USERNAME'
          ListSource = Form1.UsersSource
          ParentFont = False
          TabOrder = 0
        end
      end
    end
    object BadWordstab: TTabSheet
      Caption = 'Words To Block'
      ImageIndex = 3
      object WordstoblockGroup: TGroupBox
        Left = 22
        Top = 18
        Width = 465
        Height = 151
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        Visible = False
        object BitBtn1: TBitBtn
          Left = 20
          Top = 24
          Width = 83
          Height = 31
          Caption = 'Add Word'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = BitBtn1Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000010000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
            FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
            00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
            F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
            00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
            F033777777777337F73309999990FFF0033377777777FFF77333099999000000
            3333777777777777333333399033333333333337773333333333333903333333
            3333333773333333333333303333333333333337333333333333}
          NumGlyphs = 2
        end
        object BitBtn3: TBitBtn
          Left = 20
          Top = 64
          Width = 83
          Height = 31
          Caption = 'Del Word'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = BitBtn3Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000010000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
            3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
            33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
            33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
            333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
            03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
            33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
            0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
            3333333337FFF7F3333333333000003333333333377777333333}
          NumGlyphs = 2
        end
        object DBGrid1: TDBGrid
          Left = 120
          Top = 18
          Width = 325
          Height = 121
          DataSource = Form1.WordsSource
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ReadOnly = True
          TabOrder = 2
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'WORD'
              Title.Caption = 'Words'
              Width = 167
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CalcWordType'
              Title.Caption = 'Type of Word'
              Width = 138
              Visible = True
            end>
        end
      end
      object WarningCheckBox: TCheckBox
        Left = 24
        Top = 6
        Width = 403
        Height = 13
        Caption =
          'WARNING! This Tab contains offensive words to block, Click here ' +
          'to View list'
        TabOrder = 1
        OnClick = WarningCheckBoxClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'About'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      object GroupBox2: TGroupBox
        Left = 16
        Top = 6
        Width = 465
        Height = 157
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 0
        object btnHelpLicense: TBitBtn
          Left = 72
          Top = 116
          Width = 139
          Height = 31
          Caption = 'License Agreement'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = btnHelpLicenseClick
        end
        object panelLastUp2: TPanel
          Left = 268
          Top = 80
          Width = 85
          Height = 17
          Alignment = taRightJustify
          BevelOuter = bvNone
          Caption = 'Last data update:'
          TabOrder = 1
        end
        object panelRegID2: TPanel
          Left = 262
          Top = 54
          Width = 91
          Height = 17
          Alignment = taRightJustify
          BevelOuter = bvNone
          Caption = 'Registration #:'
          TabOrder = 2
        end
        object panelVersion2: TPanel
          Left = 304
          Top = 30
          Width = 49
          Height = 17
          Alignment = taRightJustify
          BevelOuter = bvNone
          Caption = 'Version:'
          TabOrder = 3
        end
        object GroupBox3: TGroupBox
          Left = 18
          Top = 12
          Width = 241
          Height = 97
          TabOrder = 4
          object Label1: TLabel
            Left = 66
            Top = 10
            Width = 109
            Height = 24
            Caption = 'We-Blocker'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -19
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label4: TLabel
            Left = 177
            Top = 16
            Width = 22
            Height = 13
            Caption = '(TM)'
          end
          object Label5: TLabel
            Left = 26
            Top = 34
            Width = 179
            Height = 13
            Caption = '(c) Copyright 1999, We-Web.com Inc.'
          end
          object Label7: TLabel
            Left = 17
            Top = 52
            Width = 203
            Height = 13
            Caption = 'All rights reserved. (See license agreement)'
          end
          object LinkLabel1: TLinkLabel
            Left = 63
            Top = 68
            Width = 139
            Height = 13
            Cursor = crHandPoint
            Caption = 'http://www.we-webcorp.com'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsUnderline]
            ParentFont = False
            HREF = 'http://www.we-webcorp.com'
            Visited = False
          end
        end
        object panelRegID: TPanel
          Left = 360
          Top = 54
          Width = 89
          Height = 17
          Alignment = taLeftJustify
          BevelOuter = bvNone
          TabOrder = 5
        end
        object PanelLastUp: TPanel
          Left = 360
          Top = 80
          Width = 89
          Height = 17
          Alignment = taLeftJustify
          BevelOuter = bvNone
          TabOrder = 6
        end
        object panelVersion: TPanel
          Left = 360
          Top = 30
          Width = 89
          Height = 17
          Alignment = taLeftJustify
          BevelOuter = bvNone
          TabOrder = 7
        end
      end
    end
  end
end